home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997: The Complete Utilities Toolkit / macworld-complete-utilities-1997.iso / Programming / Little Smalltalk v3.1.5 / C Source / Sources / CLStScrollPane.cp < prev    next >
Encoding:
Text File  |  1995-01-26  |  959 b   |  28 lines  |  [TEXT/KAHL]
  1. //=============================================================================
  2. //    Little Smalltalk, version 3
  3. //    Written by Tim Budd, Oregon State University, July 1988
  4. //
  5. //    Symantec Think Class Library interface code 
  6. //        ©Julian Barkway, April 1994, all rights reserved. 
  7. //
  8. //    CLStScrollPane.cp
  9. //    -----------------
  10. //    Overridden methods from CScrollPane.cp
  11. //=============================================================================
  12.  
  13.  
  14. #include "CLStScrollPane.h"
  15. #include "CLStApp.h"
  16.  
  17. extern    CLStApp        *gSmalltalk;
  18.  
  19. //={OVERRIDE}==================================================================
  20. // Override AdjustScrollMax () to eliminate mouse downs in the scrollbars.
  21. //=============================================================================
  22. void CLStScrollPane::AdjustScrollMax (void)
  23. {
  24.     inherited::AdjustScrollMax ();
  25.     if (gSmalltalk->winPart == inContent)
  26.         gSmalltalk->lastEvent.what = 0;    /* No need to pass this event to Smalltalk */
  27. }
  28.